
procedure TForm1.Button1Click(Sender: TObject);
var ifSum:double;
  var lsValue:string;
begin
  ifSum:=0;
  for lsValue in Memo1.Lines do
  begin
    ifSum:=ifSum+StrToFloatDef(lsValue,0);
  end;

  Edit1.text:=FloatToStr(ifSum);
end;
        